home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / hard / drivr / ScanTek4_2.lha / ScanTek / Rexx / ST2ImageFX.strx < prev   
Text File  |  1997-04-19  |  859b  |  48 lines
  1. /*
  2.  * $VER: ST2ImageFX.strx 1.0 (16.04.97) Waldemar Zöhner
  3.  *
  4.  * Requirements: ScanTek V3.0 or higher
  5.  *               ImageFX 2.0 or higher
  6.  *
  7.  * Description:  Load the last scanned image direct into the main ImageFX
  8.  *               buffer.
  9.  *
  10.  * Uses:         RC contains the Errorlevel of each ScanTek command
  11.  *               SCANTEK.LASTERROR contains the related error string
  12.  *               RESULT contains the result of some ScanTek command
  13.  *
  14.  */
  15.  
  16. Options FailAt 100
  17.  
  18. Options Results
  19.  
  20. ImageFXPort = LEFT(address(),17) == 'arexx_reply_port_'
  21.  
  22. Address SCANTEK1
  23.  
  24.   GetImageName
  25.  
  26.   IF rc > 0
  27.    THEN
  28.     DO
  29.       say SCANTEK.LASTERROR
  30.       EXIT
  31.     END;
  32.  
  33.   say 'GetImageName Result is 'Result
  34.  
  35.  
  36. IF ~ImageFXPort
  37.  THEN
  38.   Address IMAGEFX.1
  39.  ELSE
  40.   Address
  41.  
  42.   /* Load scanned image into ImageFX main buffer */
  43.   LoadBuffer Result force
  44.  
  45.   Render Go
  46.  
  47. EXIT
  48.